﻿Imports System.Collections.Generic
Imports MetodosComuns
Partial Class forum_forum_inicialPesquisaAvancada
    Inherits System.Web.UI.Page

    Protected Sub btnPesquisar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPesquisar.Click
        If txtBuscaExpressao.Text = "" And txtBuscaQualquer.Text = "" And txtBuscaSem.Text = "" And txtBuscaTodas.Text = "" Then
            GridView1.Visible = False
            lblErro.Visible = True
            lblErro.Text = "Por favor, preencha algum campo para busca."
        Else
            Dim lstBEPesquisa As List(Of extranet.BE.BEPesquisaMsg)
            lstBEPesquisa = extranet.BC.BCForum.BuscarNoForumAvancado(txtBuscaExpressao.Text, txtBuscaQualquer.Text, txtBuscaSem.Text, txtBuscaTodas.Text)
            If lstBEPesquisa.Count = 0 Then
                lblErro.Visible = True
                lblErro.Text = "Nenhum resultado foi encontrado para esta busca."
                GridView1.Visible = False
            Else
                lblErro.Visible = False
                GridView1.Visible = True
                GridView1.DataSource = lstBEPesquisa
                GridView1.DataBind()
            End If
        End If
    End Sub
End Class
